COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Dividing by 2 using lists of n ()'s
C00004 00003	(fasload meter)(fasload div2)
C00006 00004	(fasload meter)(fasload div2)
C00008 ENDMK
C⊗;
;;; Dividing by 2 using lists of n ()'s


(declare (fixsw t))
(declare (fasload meter fas dsk (tim lsp)))
(declare (setq meter:meterp t))

(meter:begin div2)

(defun create-n (n)
       (do ((n n (1- n))
	    (a () (push () a)))
	   ((= n 0) a)))

(meter-funs ((cdr "CDRs") (push "CONSs" CONS)(car "CARs")
             (null "NULLs")(dv2 "DV2s")(cons "CONSs"))
(defun div2 (l)
       (do ((l l (cdr (cdr l)))
	    (a () (push (car l) a)))
	   ((null l) a)))

(defun dv2 (l)
       (cond ((null l) ())
	     (t (cons (car l) (dv2 (cdr (cdr l))))))))

(defun test1 (l)
       (do ((i 300. (1- i)))
	   ((= i 0))
	   (div2 l)
	   (div2 l)
	   (div2 l)
	   (div2 l)))

(defun test2 (l)
       (do ((i 300. (1- i)))
	   ((= i 0))
	   (dv2 l)
	   (dv2 l)
	   (dv2 l)
	   (dv2 l)))

(declare (special l))
(setq l (create-n 200.))

(meter:end)

(include "timer.lsp")
(timer timit1
       (test1 l))
(timer timit2
       (test2 l))
       
;(fasload meter)(fasload div2)
;(timit1)
;Timing performed on Saturday 02/12/83 at 16:55:27.
;Cpu (- GC) Time = 3.087
;Elapsed Time = 53.866667
;Wholine Time = 25.8833334
;GC Time = 9.487
;Load Average Before  = 1.19427824
;Load Average After   = 1.59366465
;Average Load Average = 1.39397144
;NIL 
;(meter:report)
;Statistics
;Meter for: DIV2
;CDRs = 240000 (39.92%)
;CONSs = 120000 (19.96%)
;CARs = 120000 (19.96%)
;NULLs = 121200 (20.15%)
;DV2s = 0 (0.0%)
;Total = 601200
;T 
;(div2-init)
;DIV2-ARRAY 
;(timit2)
;Timing performed on Saturday 02/12/83 at 16:56:58.
;Cpu (- GC) Time = 3.827
;Elapsed Time = 75.733334
;Wholine Time = 23.8666666
;GC Time = 9.11
;Load Average Before  = 1.66445374
;Load Average After   = 2.11208653
;Average Load Average = 1.88827014
;NIL 
;(meter:report)
;Statistics
;Meter for: DIV2
;CDRs = 240000 (33.27%)
;CONSs = 120000 (16.63%)
;CARs = 120000 (16.63%)
;NULLs = 121200 (16.8%)
;DV2s = 120000 (16.63%)
;Total = 721200
;T 
(fasload meter)(fasload div2)
(timit1)

Timing performed on Wednesday 02/23/83 at 15:58:33.

Cpu (- GC) Time = 44.789
Elapsed Time = 1621.8
Wholine Time = 641.73333
GC Time = 9.476
Load Average Before  = 5.6530498
Load Average After   = 1.95894921
Average Load Average = 3.80599952
NIL 

(meter:report)
Statistics
= <calls> (<percentage>) [runtime (<percentage>)]

Meter for: DIV2
CDRs = 240000 (39.92%) [15.218 (33.98%)]
CONSs = 120000 (19.96%) [23.315 (52.06%)]
CARs = 120000 (19.96%) [3.446 (7.69%)]
NULLs = 121200 (20.16%) [2.808 (6.27%)]
DV2s = 0 (0.0%) [0.0 (0.0%)]
Total = 601200	44.787
T 

(timit2)
Timing performed on Wednesday 02/23/83 at 16:42:51.
Cpu (- GC) Time = 61.639
Elapsed Time = 3232.13333
Wholine Time = 808.7
GC Time = 9.557
Load Average Before  = 1.52202702
Load Average After   = 6.06153786
Average Load Average = 3.79178244
NIL 
T 
(meter:report)
Statistics
= <calls> (<percentage>) [runtime (<percentage>)]

Meter for: DIV2
CDRs = 240000 (33.28%) [18.265 (0.27%)]
CONSs = 120000 (16.64%) [3446.897 (50.04%)]
CARs = 120000 (16.64%) [4.172 (0.06%)]
NULLs = 121200 (16.81%) [3.494 (0.05%)]
DV2s = 120000 (16.64%) [3415.551 (49.58%)]
Total = 721200	6888.379
T